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LL I] S$ 
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ernal and local symbol definitions 
ndard tables 

INIT DEVICE, Controller initialization routine 
CONNECT, Connect the process to an interrupt 
ALLOC_ASTS, Obtain and setup ASTs for process. 
Le 1/0 routine 


wif Disconnect the process from the device 
L C_SPTS, Allocate a contiguous set of SPTs 
UP_SPTS, Validate and set access rights to SPTs 
AL_SPTS, Deallocate real time SPTs 

, End of driver 
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; REVISION a Fae 
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TITLE coninieee = Connect to interrupt driver 
-IDENT ‘v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AN 
ROANCE Ww THE TERM F 


D MAY BE USED AND COPIED 
ONLY IN ACCO SUCH AN TH THE 


HER 
TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT 
AND SHOULD NOT BE CONSTRUED AS A COMMIT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


TO CHANGE WITHOUT NOTICE 
MENT BY DIGITAL EQUIPMENT 


y ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 


VAX/VMS Connect to Interrupt Driver 


; ABSTRACT: 


This driver has the following pieces: 


An FDOT routine to process the IO$_CONINTREAD and 
I1OS_CONINTWRITE functions 

A skeletal start device routine 

A skeletal device initialization routine 

A skeletal interrupt service routine 

A skeletal cancel 1/0 routine 


; AUTHOR: 


Carol Peters 20-Aug-1979 


v03- ROW0406 Ralph 9. Weber 24-JUL-1984 
Cause DEV$V_AVL in UCBSL_DEVCHAR to be set for devices 


controlled By this driver. 


V03-005 ROW64023 Ralph 0. Weber 14-F EB-1984 
Fix ERROR_DEALSPTS so that it tests CINSL_SPTC 
before calling EXESDEAL_SPTS. 


OUNT for zero 
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te 04 ROWS6322 Ralph 0. Weber 10-JUN-1983 
gene My pty * ¢ rrect ions tacet of which correct mistakes made 


Fix Sotier double mapping code (20$ after DOUBLE_MAP) 
tormap kerne(=reed access if IO$_CONINIREAD function 

ts) Change AST ee test mask to a literal not A address. 
° Change UCB reference in CI _CANCEL from RO to R5. 


v03-003 ROW0126 Ralph 0. Weber 19-SEP-1982 
Delete CI_DUMMY_RET. It's never used and its presence 
confuses the caSual observer regarding how the driver works. 


-002 ROW41224 Ralph 0. 7-JUL-1982 
2 Force yer Cl susecAL iceth C1 pees ucesa- CI_START, 
CB$M_CI_CANCEL to be clear whenever the 


UCBSM ISR, 

ond. Tes oreendent routines are not present. Fix 
CIl_INIT DEVICE to test both ie CI_USECAL and 
UCBSM_CT_INIDEV before : ah the CALCG tener lets: Fix 
CI_CANCEC to test CI_LUSECAL and UCBSM_CI_CANCEL 
before using the cae interface. Correct code near 
SETUP_ASTS so that UCBSM_CI_REPEAT gets automaticall set if 
and only if P6 (AST_COUNT) Ts present. Also streamline this 
code by removing improperly coded test for negative blocks to 
preallocate count. Add sanity check ASSUME statements to 
guarantee that UCBSM_CI_xxxxxx symbols match CINSM_xxxxxx, 
since they are used tnterchangabely 
This correction will be distr buted “with Version 3.2. 


v03-001 rege oy Kathleen D. Morse 44-Jun-1982 
size into the pool block allocated via 
STESALGNONPAGED. Also, fix some comments. 
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> External symbols 


SACBDEF 3; AST control block 
SCINDEF 3 Connect to interrupt offsets 
SCRBDEF 3; Channel request block 
SOCDEF ; Device classes and types 
sppeper 3; Device data block 

DEVDEF 3; Device characteristics bits 
SOPTDEF 3; Device prologue table fields 
SDYNDEF 3; Control bloc “ees 
SIDBDEF 3; Interrupt data block 
SIODEF : 1/0 function codes 
SIPLDEF ; Hardware IPL definitions 
SIRPDEF : 1/0 request packet 
SPCBDEF 3; Process control block fields 
SPROEF 3; Processor registers 
SPRIDEF : Process priorities 
SPRVDEF 3; User privilege codes 
SPSLDEF 3; Program status longword 
SPTEDEF ; Page table entry definitions 
SRBMDEF 3; Realtime bit map block 

SSDE 3 System status codes 

SUCBDEF 3 Unit control block 
SVADEF ; Virtual address fields 
SVECDEF : Interrupt vector block 


: Local symbols 


: Argument List (AP) offsets for device-dependent Q10 parameters 
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1 
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1 
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1 
1 
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1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
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00000000 P1 = 0 ; First Q10 parameter 
00000004 oe = 4 ; Second Q10 parameter 
0000008 P = 8 3; Third Q10 parameter 
000000 P4 = 12 : Fourth Q10 parameter 
000001 0 P5 = 16 : Fifth Q10 parameter 
00000014 p P6 = 20 ; Sixth Q10 parameter 
00000000 BUF FER_DESC = Pl ; Address of descriptor for the 
| 4 3 connect to interrupt buffer. 
| 4544 ENTRY_LIST =? ; List of entry points. 
si td 3 FLAGS =P ; Connect to interrupt flags. 
| 000 C AST_ROUTINE = P4 3 aeer ss of associated AS 
3 routine. 
$008 10 AST_PARAMETER = P5 3; Address of AST parameter. 
0000014 00 AST_COUNT = P6 3 Number of AST control blocks 
3; to preallocate. 
3; Added UCB fields for connect to interrupt functions. 


—— 
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000000A6 
000000A8 
000000aAC 
00000080 
00000084 


SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 


TBLKL 
UCBSW_CI_ACBCNT 
TBLKW 
UCBSW_CI_ACBNOW 
TBLKW 
UCBSL_C1_AFLINK 
UCBSL_C1_ABL INK 
ucBsi_c1_PCB 


BLKL 
UCBSO_CI_SPTDSC 
BLKL 


Number of AST blocks to 
reallocate. 

ount of AST blocks currently 
allocated 
Forward Link to ACB List. 


Backward Link to ACB List. 
Address of process’ PCB. 


System page table descriptor 
for user buffer mapping. 


18 
! ¢ SDEFINI UCB 
00000044 bes ! : . = UCBSL_DEVDEPEND ; Set to device dependent field. 
44 1 § SVIELD UCB,0,<- ; Define characteristics: 
044 1 <CI_EFN, ,M>,= ; Set event flag on interrupt. 
O44 138 <CIZUSECAL, .M>.= ; Use CALL interface. 
8 44 15 SEL TE TEAL Mes ; Repeat delivery of interrupts. 
044 160 <CI_LAST, ,M>,= ; Queue AST on interrupt. 
0044 16 <CIZINIBEV, (M>,- ; Device init routine present. 
044 «1 <CI“START, .M>,- > Start device routine present. 
0044 16 <CI_ISR, ,M>,- ; ISR routine present. 
0044 164 <CI“CANCEL, .M>, = ; Cancel 1/0 routine present. 
Boek 165 <CI_LUCBFRK, ,M>,- ; Fork on UCB has occurred. 
doce 16? : 
0 168 ASSUME UCBSM_CI_EFN EQ CINSM_EFN 
19? ASSUME UCBSM_CI_USECAL EQ CINSM_USECAL 
170 ASSUME UCBSM~CI“REPEAT EQ CINSM~REPEAT 
171 ASSUME UCBSM_CI_AST EQ CINSM_AST 
We ASSUME UCBSM_CI_INIDEV EQ CINSM_INIDEV 
17 ASSUME UCBSM_CI_START EQ CINSM_START 
174 ASSUME UCBSM_CI_ISR EQ CINSM_ISR 
V2 ASSUME UCBSM_CI_CANCEL EQ CINSM_CANCEL 
00000090 179 ° = UCBSK_LENGTH 3 et offset to end of standard 
179 pape 
180 SDEF UCB$Q_CI_BUFDSC ; Buffer descriptor parameter. 
00000098 183 “BLKL 
1 j SDEF UCBSB_CI_ASTMOD ; Mode at which to deliver AST. 
00000099 184 ~BLK 
185 SDEF UCBSB_CI_SPARE ; Spare byte. 
0000009A 1 $ ~BLK 
187 SDEF UCBSW_CI_EFNUM ; Event flag number. 
0000009C 1 3 ~BLK 
189 SDEF UCBSL_CI_AST ; Address of AST routine. 
000000A0 190 ~BLKL 
" 3 parameter. 
191 SDEF UCBSL_CI_ASTPRM AST t 
000000A4 138 
19 
194 
13 
te 
4 
5 
6 


000008 


«BLKL 


Stores SPT count and VPN 
of starting page of buffer. 
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000000C0 
000000¢4 
000000C8 


000000CC 
00000000 


00000004 


00000008 
0000000C 
000000E0 
000000E4 
000000E8 


OO0000EC 
000000F 0 
000000F 4 
000000F 8 
000000F C 
00000100 
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SDEF 
SDEF 
SDEF 


SDEF 
SDEF 


SDEF 


7 
9 
i 
‘ 
15 
13 
19 
: 
i 
' 
§ $EQuU 
3 SDEF 
? SDEF 
§ SDEF 
Fe 
8 
: 
te 
5 SDEF 
§ SDEF 
9 Sper 
BY sper 
§ SDEF 
5 SDEF 
5 
$1 
§ 


4 
4 
4 
4 
4 
& 
4 
4 
4 
4 


SDEF 


UCBSL_C1_INIDEV 
UCBSL_CI_START 


UCBSL_C1_STACAL 
“BLKL 1 


UCBSL_CI_ISR 


~BLKL. 1 
UCBSL_CI_ISRCAL 
~BLKL 1 


UCBSL_CI_CANCEL 
~BLKL 1 


UCBSK_CI_STARGC 4 


UCBSL_CI_STARGC 
UCBSL_C1_STARG1 
UCBSL_CI_STARG2 
eBLKL 
UCBSL_C1_STARG3 
TBLKL 
UCBSL_C1_STARG4 
TBLKL 


UCBSK_C1_ISARGC 
UCBSL_C1_ISARGC 
TBLKL 
UCBSL_CI_1SARG1 
TBLKL 
UCBSL_C1_ISARG2 
UCBSL_CI_ISARGS 
UCBSL_CI_ISARG4 
TBLKL 
UCBSL_C1_ISARGS 
TBLKL 
UCBSK_CI_LENGTH 
SDEFEND UCB 


: Other constants 
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1 
1 
1 
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Address of yserospgc ified 
device initialization routine. 
Address of user-specified 
start device routine. 
Address of userwepec! tied 
start device routine using 
CALL interface. 

Address of user-specified 
interrupt service routine. 
Address of user-specified 
interrupt service routine 
using CALL interface 
Address of user-specified 
cancel 1/0 routine. 


: The next set of fields must be in exactly the order you see them. 


Number of arguments for 
start device routine. 
Argument count for start 
device routine. 

First start device argument. 


Second start device argument. 
Third start device argument. 
Fourth start device argument. 


: The next set of fields must be in exactly the order you see them. 


Number of arguments for 
interrupt service routine. 
Argument count for ISR. 
First argument for ISR. 
Second argument for ISR. 
Third argument for ISR. 
Fourth argument for ISR. 


Fifth argument for ISR. 


Length of CI UCB. 
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66 -SBTTL Standard tables 
08 $ 
8 : Driver prologue table 
DPTAB = : DPT-creation macro 
END=CI_END,= End of driver label 
ADAPTER=UBA, = ; Adapter type. 
UCBs 2E =<UcBsx =C1_LENGTH>,~ : Length of 
NAME=CONINT : Driver name 


DPT_STORE INIT 
DPT og 1ORE uCcB, “usee 


: Start of load 

; initialization table 
PL, B. § ; Driver fork IPL 
DPT-STORE UCB,UCB 22 : Device interrupt IPL 
DPT ~ STORE UCB,UCB$ vDEPEND, L,0 i Clear device dependent 


bits 
DPT_STORE UCB,UCBSL 4 gr L, <-; Set deutee shorectertertess 
DEVS$M_A : available for use 
: DEVSM_ ath - 3 real-time device 


B_FI 
B-DIPL 
LIDE 


DPT_STORE REINIT 


DPT_STORE DDB,DDBSL DoT. D,CISDDT 
DPT“STORE CRB,CRBSL_INTD+4,D,- 
INTERRU by iN 
DPT_STORE CRB,- 
CRBSL INTD*VECSL INITIAL, = 
D,CI EVICE™ 
DPT _sToRE Ste UCBSe CI_INIDEV,D,- 
C1_DUMMY_RSB 


DPT_STORE uce,UCBsL Ci_START,D,- 
C1_DUMMY_RS 

DPT_STORE OCB,UCB$L_CI_ISR.D.- 
C1_DUMMY_RSB 


DPT_STORE UCB,UCBS$L_CI_CANCEL,D,- 
C1_DUMMY_RSB 


Start of reload 
initialization table 
Address of DDT 

Address of interrupt 

; service routine 
Address of controller 
initialization routine 


Address of user's 
device initialization 
routine. 

Address of user's 
start 1/0 routine. 
Address of user's 
interrupt service 
routine. 

Address of user's 
cancel 1/0 routine. 


End of initialization 
tables. 


DPT_STORE END 
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: Function dispatch table 
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3 3; Driver dispatch table 

00 ; 

o8 DDTAB - 3: DDT-creation macro 
0 DEVNAM=CI,- 3; Name of device 

0 START=CI_START,- : Start 1/0 rout ine 
0 FUNCTB=CT_FUNCTABLE,- : FOT addr 

: CANCEL=CI_CANCEL ; Cancel ite routine 
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3 
4 CILFUNCTABLE: ; FDOT for driver 
5 FUNCTAB ,- ; Valid I/0 functions 
§ <CONINTREAD,=- 3; Connect to interrrupt 
CONINTWRITE> : read and write codes. 
4 8 FUNC TAB 
4 FUNCTAB €1_CONNECT,=- : FDOT connect to 
4 0 <CONINTREAD - 3; interrupt readonly 
04 1 CONINTWRITE> + and write. 
0054 ‘ 
0054 . SHOW EXPANSIONS 
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~SBTTL CILINIT_DEVICE, Controller initialization routine 


or 
m 
<- 


C 


p++ 

; CILINIT_ DEVICE, Readies controller for 1/0 operations 

: Functional description: 

The operating system calls this routine in 3 places: 


at system startup 
during driver loading and reloading 
during recovery from a power failure 


This routine sets the device online, and marks the device 

as the owner of the controller. Then the routine calls a 
user-specified device initialization routine. The FDT routine 
CI_CONNECT loads a user-specified routine address into the 
relevant UCB field. 


The selection of the CALLS or JSB path is via a bit setting 

in the UCB. When the user's routine is called, RO contains the 
address of the UCB; registers R4-R8 are unchanged; for a CALL 
interface, the argument List is as follows: 
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PUPP LULU PU PVPVPVPULPVPUSPUSVSULUSUSUSUSE SUSU SUSU SUITS STUSSY 


OCAP) = argument count of #5. 
4(AP) = the address of the CSR 
8(AP) - the address of the IDB 
0 12(AP) = the address of the DDB 
0 16(AP) «= the address of the CRB 
8 20(AP) = the address of the UCB 
8 Inputs 
00 : RG - address of the CSR (controller status register) 
00 R5 - address of the IDB (interrupt data block 
00 : R6 - address of the DDB (device data block) 
3 RB - address of the CRB (channel request block) 
+ 3 Implicit inputs: 
0 ; UCBSV_CI_USECAL bit is set in UCBSL_DEVDEPEND if the CALLS 
: : interface is desired. 
8 UCBSL _Ct_INIDEY contains the address of the user-specified 
device initialization routine. 
° Outputs: 
0 The routine must preserve all registers except RO-R3. 
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CI_INIT_DEVICE: : Initialize controller 


: Mark the device as online in the UCB, and indicate in the IDB that 
3 the device is the owner of the controller. 
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age 10 
. (4) 


4 3 
4 
50 04 46 0 : MOVL boast, UCB(R6) ,RO ; Get address of UCB. 
1 A 8 BISW #UCBSA_ONLINE,- 3; Mark device online. 
64 A SA UCBSW_STS(RO) 
046 a5 5 dO 5 MOVL RO, IDB$L_OWNER(RS) ; Set device as controller 
6 3; owner. : 
06 
be 3 Now call the user-specified device initialization routine. 
6 o 
01 =«€1 6 BBC #UCBSV_CI_USECAL,=- $ Branch to JSB code if user 
15 44 AO 6 Ucest BEVBEPEND(RO),10$ : didn't request CALL interface. 
10 44 AO =(04~—=CéE*Y 6 BBC #ucB$0_CI_INIDEV, - 3; Branch to JSB code if user 
oA UCBSL_BEVBEPEND (RO), 10$; initization routine doesn't exist. 
6A 


CoOooooo 


: Load the input registers onto the argument stack and CALLS the 
3; user-specified initialization routine. 


DOOOCOOOCOoOooooSo 
oooo 
PAA 
>>?>>>> 
Salted dekh dhe ne nk ek el eke el ek ke ek tak ed ek eh ee We Wh nd nh nh ah nd nd mand 


WRoREPoRoRoRONONONony 2 2 = MODOC OOOO OOO OOD O0000 


SOD NA MEAN  O OD NOUN EAN 0 ODA NEW O ODO UNE 


50 oD PUSHL RO ; Push address of UCB. 
58 DD 006C PUSHL R8 ; Push address of CRB. 
26 OD Be PUSHL R6 ; Push address of DDB. 
5 DD 00 PUSHL R5 3 Push address of IDB. 
54 DD 007 PUSHL R4 ; Push address of CSR. 
oopc D0 )=6—(0S-SC FB COO 74 CALLS #5,@UCBSL_CI_INIDEV(RO) ; Call user-specified device 
079 3; initialization routine. 
05 0079 RSB ; Return. 
OO7A 
Been 3; Just JSB to the user-specified initialization routine. 
007A 
Ba en 10$: ; JSB path. Mae , 
00BC DO 16 OO7A JSB @UCBSL_CI_INIDEV(RO) ; JSB to user-specified device 
007E : initialization routine. 
05 O07E RSB ; Return. 


c—-— 
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vou CI_CONNECT, Connect the process to an in et ety ERAT DRIVER. SRCICONINTERR.MAR; 1 ’ (5) 
H § -SBTTL CI CONNECT, Connect the process to an interrupt 
7F 4 344 
7 5 ; CI_LCONNECT, FDOT routine that establishes an interrupt handler 


; Functional description: 
This routine gains control at IPL IPLS_ASTDEL. 


This routine puts the process in control of the device in the 
following steps: 


1. Validate and clear the event flag. 

2. If the buffer cece iptor describes a non-zero length buffer, 
enect eer to entry = nt List, confirm that process has 
CMKRNL priv Lege. and lock buffer pages in memory. 

3. Double map the buffer to system space 

4. pote for or dev ic wretin J of process-supplied kernel mode 

routin nes for device control. 

5. If the address of an AST routine is supplied. allocate 
and initialize : ‘spect ted number of AST control blocks. 

6. Queue the IRP to the driver; this activates the driver's 

start 1/0 routine, which passes control to the process-start 

1/0 routine (if any). 


; Inputs: 


scratch registers 

address of the IRP (1/0 request packet) 

address of the PCB (process control organ 

address of the UCB (unit control block) 

address of the CCB (channel control block) 

bit number of the 1/0 function code 

address of the At table entry for this routine 
scratch registe 

address of sang ist function dependent Q10 parameter 


Daa take el ake ek ak ek el ak ek Dak tak tel tale a, take lak a eke ek 
PD PPPs PEELE EE 


—OODNOA UNE WN 0 ODN UNE WP O ONO 


ie 


DOOSOOOOSOSOOOSOSOOOOOCOSOOSOOoOoOOoOO 


COCO COCOCOOOSOSOSOCOSOOOS OOO OCOSOOCOOOOCCOOOOOOOOOOOOOCOooOO 


8 
R9O-R11 
AP 
6 parameters can be specified; they are as follows: 


BUFFER DESC (AP) - buffer descriptor 
ENTRY_CIST(AP) ~ eporess of entry point List 
FLAGSTAP) 
+ pe word pure ot 

h word is event f 1°34 number 
AST_ ROUTIN (AP) address 
AST~ ate bh Raa - AST parameter 
AST_COUNT (AP) = count of AST control blocks 

to preallocate 


SSN NNN NNN NNN NNN NNN NNN 
i a Da Di i Bi Di Dan Di i i Be Bi Bi Ba Bi is en ns Bn Bn De Bs ns ns Bs Bs Bn Bes Be ns a ns ns Bs Bs Bs es 


SN 
aa 


The ENTRY_LIST parameter is the address of a 4-longword block 
that contains offsets into the user buffer: 


CINSL_INIDEV offset to device init routine 


CINSL-START - offset to start device routine 
; - offset to interrupt service routine 
CINSL-CANCEL - offset to cancel 1/0 routine 


: Ra 


BNO NEW" O ONO Ei 


0000909096009 0900 INI NIN SO 


PPP PPLE PPP EEE EEE 


SSN 
i Fas Se Bee Dee Bes Bene ns es Bene Bn) 


G 15 
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v00-005 CI_CONNECT, Connect the process to an in a 3-18 4 85:19:46 LORIVER. SREICONINTERR. MAR; 1 ° (3) 
44 : 9 ; The FLAGS parameter has the following flags settings: 
7F 234 : CINSM_EFN - set event flag on interrupt 
7F $36 3 CINSM_USECAL - use a CALLS interface to user routines 
7F 495 CINSM_REPEAT - repeatedly report interrupts 
7F 4 =6494 Th ey - wave AST on interrupt 
7F 4495 ; CINSM_INIDEV - initialize device routine in buffer 
7F rh 3 CINSM_START = start device routine in buffer 
7F 497 | CINSM_ISR - interrupt service routine in buffer 
4 $38 : CINSM_ CANCEL - cancel 1/0 routine in buffer 
7F ? ; CINSV_EFNUM - offset to event flag number 
OFF é CINSS_EFNUM - size of event flag number field 
Boe § ; Outputs: 
O7F 5 : The routine must preserve all registers except RO-R2, and 
O7F $ : R9-R11, 
O7F : 
a 
OPE 10 CI_CONNECT: ; Establish a handler. 
50 2046C 8F 3C OO07F 11 MOVZWL #SS$_DISCONNECT,RO 3; Assume connect in progress 
0 EO 0084 \§ BBS SY,- 3; Branch if connect 
34 64 A 086 1 UCBSW_STS(R5S) ,10$ : is in progress. 
0080 (5 = 554~—Ss«éD oe 14 MOVL R4,UCBSL_C1_PCB(RS) ; Save the process PCB. 
08 AC B80 OO8E 15 MOVW FLAGS (APS,= ; Store flags bits in the UCB. 
44 AS 0091 18 UCBSL_DEVDEPEND (RS) 
ae 
09 15 : Force the AST wanted flag to agree with whether an AST address 
44 ? ; was specified by the caller. 
09 . 
06 AA 009 : BICW #UCBSM_CI_AST,- ; Assume AST's not wanted. 
44 A 09 4 UCBSL_BEVBEPEND(RS) ; 
OC AC 0 9 525 TSTL AST_ROUT INE (AP) 3 AST addr specified? 
06 = oa § BEQL ; Branch if not. 
08 AaB O09C BISW #UCBSM_CI_AST,=- ; Else force AST bit set. 
44 AS 8 UCBSL_BEVBEPEND (RS) : 
, 5$: 
A ; 
A j 3 If the user specified an event flag to be posted in the event of an 
DOA 4 ; interrupt, clear the event flag, thereby checking for an invalid 
DOA é 3; event flag specification. 
vi 3 
DOA 
08 AC 90 E1 D049 8 BBC , [NOV _EFMFLAGSCAP) . 3 Bent check event flag unless 
‘ PY e 
0 8B DOA 40 PUSHR #*F<R3> 3 Save the IRP address. 
1 EF QOA 41 EXTZV @CINSV_EFNUM,- ; Extract the event wag 
)OAP $5 #CINSS_EFNUM,- 3; number from the high flags 
33 08 ag DOAA 4 FLAGS (AP) ,R3 3 word, 
009A cS) —53——BO OAD 4 Movw  R3,UCBSW_CI_EFNUM(RS) =: Store event flag number in 
UF 3 e 


— 


coun RR = Connect to interrupt driver 


15-SEP-1984 23:40: AX/VMS Macro V04-00 Pa 13 
CI_CONNECT, Connect the process to an in 3: 85349598 f “e (5) | 
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Q0000000°GF 16 ¢ 4 JSB8 S.SCuecuner ; Clear and test event flag. 
BA 8 4 POPR #*A<R3> 3; Restore IRP address. 
03 58 BA 8 BLBS RO,20$ ; Branch forward on success. 
O1F 8 49 10$: BRW ERROR : Stop with error. 
C i 3 
C ; ; See if the user specified a buffer. If yes, and the buffer is of 
¢C 53; finite length, 99 on to look at the entry point List. Otherwise, 
: 23 ; Just proceed to AST setup code. 
C 7 | 
C i$ 208: | 
0084 cS) =7C ee 28 CLROQ UCBSOQ_CI_SPTDSC (RS) 3 cee buffer descriptor in | 
SA 6 09 C4 560 MOVL BUFFER DESC (AP) ,R10 : Get buffer descriptor. 
06 «1 0C7 61 BEQL $ : Branch if no descriptor. 
6A «BS 634 6¢ TSTW (R10) : Is buffer non zero length? 
0B «2 cB 6 BNEQ 40 : Yes. Go check entry List. 
SOcb 86S. 308 | 
44 AS QO00000F2 BF CA itt 66 ; BICL #<UCBSM_CI_USECAL ! = ; Can't use the CALL interface to 
0005 56 UCBSM_CT_IRIDEV ! - ; routines which are not there. 
0005 568 UCBSM_CI_START ! - 
0005 28? UCBSM_CI_ISR ! - 
005 570 UCBSM_CI_CANCEL>, - 
005 27) UCBSL_DEVDEPEND(R5) 
0152—=—s31 0008 378 BRwW SETUP_ASTS ; Skip access checks if length 
0D 74 ; | 
0008 37? 3; Return error if buffer size exceeds 65767 bytes. 
BEF) os 
50 14 3C OB 8 "  MOVZWL_s« #SS$$_BADPARAM,RO ; Assume error. 
OOOOFFFF 8F 6A 01 308 0 CMPL (RIOT, @°XFFFF ; Byte count .ge. 65767? 
D9 §614~«=OO0E 1 BGTR 10$ ; Branch if so. 
ta 
bet r ; Validate read access to the entry point List. | 
£4 : | 
50 OC 3C OQ0E4 $ MOVZWL #SS$_ACCVIO,RO 3; Assume read access failure. 
5B 04 AC 00 O0E7 8 MOVL ENTRY bist (an) att ; Get address of entry List. | 
EB 9 IFRD #424 ,TR11), 508 : Branch forward if process has 
68 10 00 0 a PROBER #0.8424,(R11) 
03 (1 EF £o 508 
F1 90 3 read access to List. 
01c1 31 4 $3 BRil ERROR ; Otherwise, stop with error. 
F4 935 ; 
F4 94 ; Check for change mode to kernel pr tut lone without which, executing 
F4 95 : a routine in kernel mode (either as an Sk, device initialization, 
F4 96 ; etc.) is not permitted. 
F4 97 ; 
F4 9 
F4 99 50S: 


— i, 


Vv 
50 24 OC 


03 0084 ¢4 00 €0 
0185 = 31 


felelelelelelelelelolelolelololo! 


De a ee ce a a ae ee a a a a ee ee ae ae a ed ed ad ed od eed ad mt HOO OOOO 


PROPRIO 4 2 9 | BODDOOCOCOCDOOCOCOCOOCOCOCOOCOCOCOOCOCOO TR FAH HA HH 


51 6A 3 
50 04 AA 00 
oO «CCF 

59 20 aS 
9 D1 
08 13 
00000000°GF 16 
06 11 


00000000°GF 16 


SOOCCOCOCOSOSOO S FF FOWNMOS PF OVNWUOOCOOSCOCSCSOOOSCOCOOCCSOOCCoOV SVE 9899999 NNN SS 
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at ot ot tt I I BHQOOOOOOOO 


LOCK_PAGES: 
MOVZW 


LPP AAPEDPP PAA PAPA AAPA AAA AD AA AA AA AAA AA AAA AA AO 


PARE OO ONO NE WD 9 OD NA UNE WIN 9 ODO NEW O ODNOUE Wy 


oon 


#SS$_NOPRIV, os ; Assume privilege violation. 
CMKRAL ,LOCK_PAGES : If process is sufficiently 
IF DIF <CMRRNL>,<R1> 
IF ptr < MKRNL>, <R2> 
BBS PPRVSV_CHKRNL ,PCBSQ_PRIV(R4) ,LOCK PAGES 
BBS CMKRNL ,PCBSQ_PRIV(R4) ,LOCK_PAGES 
TIFF 
BBS CMKRNL ,PCBSQ_PRIV(R4) ,LOCK_PAGES 
~ENDC 
: alae | oy proceed. 
ERROR ; Otherwise, stop now. 


; Lock down the user pages so they can't be paged out during interrupt 


; The register setup before calling VMS to lock the pages is as follows: 


buffer address 

buffer Longts in bytes 
address of the IRP 
address of ne PCB 
address of the CCB 
entry list address 


: The locking routines return the address of the page table entry for 
; the first page in the user's buffer in R1 and in IRP 


SL_SVAPTE. 


(R10) ,R1 ; Get buffer Length. 
4(R105 ,RO : Get buffer address. 
#IRPSV. peopees 3; Get the function code. 
oinees, FCODE 
IRPSW O FUNCCRS) -R 
#108 SYeontntuRife R9 : Is it a write? 
10$ ~ : Yes, branch to write lock. 
G*EXESWRITELOCK 3; Otherwise, check for read 
3; access and lock pages. 
DOUBLE _MAP 3; The routine only returns if 
: successful; branch forward. 
G*EXESMODIF YLOCK Check for modify access and 


lock pages. Only return is 
success. Failure aborts or 
backs out 1/0 request to wait 
for paging activity. 


Double map the buffer into system page table entries. If SPTs are not 
: available, return with error (1/0 post will unlock the pages). 


ype) RR 
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1 
( 
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1 47 DOUBLE _MAP: 
52 0084 ¢S 9E€ Q1 rn MOVAB UCBSQ_CI_SPTDSC(R5),R2 ; Get address in UCB where 
1 64 3; the SPT descriptor will go. 
3 6A 3c «(01 229 MOVZWL (R10),R0 3; Get # bytes to double map 
51 046 AA 0 gr 1 651 EXTZV #0,49,4(R10),R1 3; Get byte offset of buffer 
30 OIFF 6041 ; 10£ 63¢ MOVAB “x{FF(RODCRIS,RO : Compute # of bytes to map 
6 5 ‘7 BF 7? 154 £3 ASHL #-9,R0,- ; Convert # bytes to pages 
139 «654 CINSL_ SPTCOUNT(R2) : 
139 §©655 
139 626 10$: 
1 2 65 DSBINT Uress _F EPL (RS) 3; Raise to driver fork IPL. 
7E 12 0B 9 mrp S*#PR$_IPL,=(SP) 
13¢ MFPR = S*#PRS_IPL, 
4 C -ENDC 
13C -1F 8B UCBSB_FIPL(RS) 
3 é are 8 1,S*#PR$_IPL 
12 OB AS DA 1 C MTPR =‘ UCBSB_FIPL(R5) .S“#PR$_IPL 
O10 ~ENDC 
00000486 ' GF 16 140 658 JSB SCRE AULOC _2P 1S 3; Allocate the SPTs. 
06 50 €8 0146 659 BLBS RO,20$ : Branch forward on success. 
re 660 ENBINT 72 3; Drop IPL back down. 
12 BE DA 149 MTPR (SP) +, S*#PRS_IPL 
14C oIFF 
pret MTPR oS*APRS_IPL 
get ome 
0166 = 311 aie 66) BRW ERROR 3; Otherwise, stop with error. 
14F 6 : 3 
be ee) 3 R2 now contains a descriptor: 
14F 666 F CINSL_SPTCOUNT(R2) - number of SPTs allocated 
pe oe ; CINSL-STARTVPN(R2) - starting virtual page number (VPN) 
14F 68 ; Set up the SPTs to address the user buffer. Any errors from now on 
1o e790 3 must unlock pages and deallocate the SPTs. 
14F 672° 
14F of 208: 
51 04 AA 4 14F 7 MOVL 4(R10),R1 3; Get address of user buffer. 
50 1 000 of D 153 675 MOVL #<PTESC_Kw> RO : Set write access mask. 
ee 9 01 O1bA 67% CMPL 9, #10$~CONINTREAD : Is this a read? 
3? is 150 8667 BNEQ 3 No. Branch forward. 
50 18000000 8F oD 15F o78 MOVL #<PTESC_KR>,RO ; Otherwise, restrict to kernel 
1? 7 3; read. 
50 8F 8 1 _ BISL #PTESM VALID,RO Set valid bit too 
3 v : 
iedat tar 8 ig 6 § JS8 G*EXESSETUP_SPTS : Set up the SPTs. 
i 684 ENBINT we ; Drop IPL back down. 
12 BE DA O17 MTPR = (SP) +, S*#PRS_IPL 


—- 
cs 


04 A2 


9 
9 


59 9? 
59 80000000 8F 


54 24 AS 


OOBC C5 "3578 os 


04 
08 AC 


05 
38 08 AC 
01 


= Connect to interrupt driver 


17 
17 
17 
17 
17 $ 5 
17 § 3 
38 688 | 
176 6 § 3 
176 690; 
ye gi 
176 $36 ; 
176 694 
78 0176 695 ASHL 
17A = 69 
FO 0178 69 INSV 
17 698 
cs 01 $99 BISL 
| Pied ° 
187 re 3; Write 
187 703; 
187 704; 
ae 
‘or of $ 3 cancel 
187 708; 
187 709; 
187 710; 
187 «6711; R2 
187 at 3 RG 
187 713; RS 
187 714; Ro 
187 «6715; R11 
fe: 
187 ay SETUP_ENTRIES: 
00 0187 71 MOVL 
1 720 
iB 
ee 
€1 ' 4 5 BBC 
C1 01 7 $ ADOL3 
19 7 3 
19 7 
19 7 9 
196 7 
196788 
1 ; 4 10%: 
€1 1? 4 5 BBC 
—€1 01968 7 $ BBC 


-1FF 
MTPR 
ENDC 


»S*#PRS_IPL 


IPL is now back at 0. 
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0 V04-00 


Get system-mapped address of the user buffer. Registers are: 


= process address of the user's buffer 
- quadword-descriptor of the SPT count and starting VPN 


#9, CINSL_STARTVPN(R2),= ; 


R1 aVASY tee : 
aVASS 
IVASR =BVtE RY RI F 


proper addresses into driver's 


device initialization routine 
start device routine 
interrupt service routine 


/0 routine 


address of the C 
address cf the UCB 


UCBSL_CRB(RS) .R4 


; Set up for start 1/0 routine. 


#CINSV_START 
FLAGS (RP) 408 
#CINSV_USECAL,- 


Convert VPN to system 


; virtual address. 


Add byte offset into page. 
Set the system bit. 


Registers used in the following setup are as listed below: 
offset to routine in user buffer 


system-mapped address of the user buffer 
address of the entry point List 


; Get CRB address. 


: Set up for device initialization routine. 


Branch forward if no Goxtce 
initialization speg i fied 

Set up device in tialization 
routine address. 


Branch forward if no gtart 
device routine specit ed. 
Branch forward if not a 


JCONINTERR.MAR; 1 


row i, 


—— =| 


7 
| 
| 
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12 08 AC 019 FLAGS(AP) ,208 ; CALL interface. | 
00c4 (5) 589 f AB CC att 53 ADDL3 CINSE STARTCRIT) R9,- ; Otherwise, store user start 
OIA £40 UCBSL~CI_STACAL(RS) ; device address. 
say ts 9€ Q1A7 4) MOVAB (Cl STARTACALL - ; And store internal Label as 
ye c3 1AD 146 cs L_CISTART (RS) ; JSB address. 
11 1° re BRB $ ; Go create argument List. 
18 745 208: 3; Normal JSB setup. 
ooco cS «6559 04 AB OCC: reg ADOLS CINSL_START(R11),R9,- ; Set up device start up 
18 74 UCBSL-CI_START(RS) ; routine address. 
189 fe | 
183 ; Setup canned argument List for the start device routine. | 
183 so 
06 00 0189 754° «+= MOVL  @#UCBSK_CI_STARGC,- ; Save count of canned | 
9D4 5 188 ©6755 UCBSL_CI_STARGC(AS) : argument List. 
00D8 C 53 DO 018 7 § MOVL Re UCBSL CI _STARGI (RS) ; Start 1/0 canned List is: 
OODC C5 3 600 ic3 75 MOVL R3,UCBSL_CI_STARG2(R5) ; uffer address, IRP 
2¢ B4 «6d «OIC 138 MOVL  acRBSL INTDFVECSL 1DB(R4S,-; address, device CSR 
O9e0 3 1¢c8 «75 ucest CI_STARG3(R5) ; address, and 
O0E4 C dO «OIC 760 MOVL RS,UCBSL_CI_STARG4(R5) ; the UCB address. 
1D3 763 | 
1D 88 ; Setup for interrupt service routine. 
1D 764 ;: 
1D ree 40$ 
08 AC 06 €1 OD reo BBC @CINSV_ISR,FLAGS(AP),- ; Branch forward if no ISR 
40 1D 76 70$ 3 was specified. 
01 €1 0108 6 BBC #CINSV_USECAL,=- 3; Branch forward if not a 
12 8s AC 1DA 770 FLAGS (AP) 3; CALL interface. 
ooce cS «6559 (OB ABE SCC1)s«O01DD-Ss 7771 ADDLS CINSL_ISR(R11).R9,- ; Otherwise, store user ISR | 
164 178 UCBSL~CI_ISRCAL(R5) > address. 
oo00gs28 "et 9€ O184 77 MOVAB (CI_ISR_CALL,- ; And store internal label as 
00c8 C5 1EA 77% UCBSL_CI_ISR(RS) ; JSB address. | 
, 3 48} BRB 60$ ; Branch to build argument List. 
1EF or8 50$ 3; Normal JSB setup. | 
ooc8 (5 = 559) OB AB SCCTCOQUEF ore ADDL3. CINSL_ISR(R11) ,R9,- 3; Set up interrupt service | 
F 179 UCBSL“CI_ISR(R5) ; routine address. | 
fF 781 ; 
4 4 § ; Setup the canned argument List for the interrupt service routine. 
18 TE cos 
05 00 O01F6 7 6 "MOVE sUCBSK C1_ISARGC,- ; Load count for the canned 
Opes C3 1F 7 UCBSL C1 _TSARGC (RS) ; argument List; then load 
OOEC dO FB 7 3 MOVL R ucB LICI_ISARGI(RS) ; buffer address, 
Boag Ce DE 7? VAL uCcé TH 3 AST parameter address, 
FO C¢ ; ay! UCBSL_CI_ISARG2(R5) 
4 P86 -NOSHOW EXPANSIONS 
7 7964 ASSUME IDBSL_CSR EQ 0 


. 


EE Ne 


07 
07 08 AC 
0000 <5 «59 = =—(OC: «AB 


00 8 
0090 C 


OOA4 C5 


Ssss 
>>>> 
* O@@cn 


= 


w 
_ 
w 
So 
— 
Fo 


44 a5 046 
51 FFFFBO00 Y 
5 


0041 
51 


3s 


dO 


dO 
60 


D4 


5D OS Cd OD OD OD Od Cd Od Od Od Od OP CO 09 OP CO CD CD08 SII 
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CONINTERR 
v04- 
2C 84 
OOF4 C5 
2C AG 
nore 298 83 
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CI_CONNECT, Connect the process to an in 5-SEP- 


MOVL 


- SHOW 
MOVL 
MOVL 


: Setup for the 


70$: 
BBC 
ADOL3 
80$: 
MOVa 


: Allocate some 
3; raises IPL to 
3; loss of pool. 


SETUP_ASTS: 
-NOSHOW 
ASSUME 
CLRL 


- SHOW 
MOVAB 


1 
1 
acRBSL INTD*VECSL 
UCBSL_CI_ISARG3(R 


EXPANSIONS 


5 ; 


CRBSL_INTD*VECSL, JDB(R4) =; 


UCBSL_CI_ISARG4(R 3 
R5,UCBSLOCI_ISARGS(RS) ; 


cancel 1/0 routine. 


@BUFFER_DESC(AP) ,- 
UCB$Q_CT_BUFDSC(RS5) 


t 


EL GBSESNE VIVE. RESON ann 


eats 


device CSR address, 


= IDB address, 
n 
the UCB address. 


Branch forward if no cancel 
1/0 routine was specified. 
Set up device cancel 1/0 
routine address. 


Store process-mapped buffer 
descriptor too. 


locks to be used as AST control blocks. The allocation 
PLS$_ASTDEL to prevent process deletion and subsequent 


ote that no ACBs are needed 


EXPANSIONS 
UCBSW_CI_ACBNOW EQ UCBSW_CI_ACBCNT+2 
UCBSW~C1~ACBCNT (RS) 7 N 


or allocated at present. 


EXPANSIONS 

UCBSL Ct AFL INK (R3} = 3 Initialize the UCB AST block 
UCBSL_CI_AFLINK(RS) i; Queue to point to itself. 
UCBSL-CI“AELINK (RS) .~ 3 Ditto. 

UCBSL_C1_ABLINK(R5) 

#uc cT bOW UCB RN ACI LAST © : Efn or AST 
UCBSL_BEVBEPEND (RS) 3 requested? 

SUE VE PACKET : Branch if not. 

#SS$_BADPARAM,RO 3 Assume error in AST count. 

AST COUNT CAP) . R1 ; Get preallocated AST blocks count. 
208 3; Branch paramenter absent. 
wen CIl_REPEAT, = 3; Since count is present, set the 
UCBSL DE VDEPEND (RS) > repeat bit. 

O*C*X7FFF, R i Is count to big? 

308 :; Branch if count not to big. 
ERROR_DEALSPTS : Else, blow the request away. 

R1 ; At least on AST block is needed. 


#SS$_EXQUOTA,RO : 


Assume AST quota is too low. 


FN ee 


couse 


54__ 0080 ¢5 
38 AG 1 


00d 


OOAS (551 
0038 
06 50 


51 814 AC 
08 


*0000000" GF 
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Bo § MOVL UCBSL £1 rca ins) RG ; Restore PCB address. 
B ; CMPW = sR, PCBSWTASTCNT(R4) F Compare Ast count with 
; quota left. 
15 ° 5 BLEQ 408 ; Branch forward if enough. 
31 er § BRW ERROR_DEALSPTS ; Otherwise, stop with error. 
EB: 
6E § 3; Save the mode of the requesting mode in the UCB. Then allocate and 
43 r¢' : initialize all the AST packets. 
6— 862 © 
6€ $8 408: 
oc 8 4 MOVFSL RO ; Get the PSL. 
EF 65 EXTZV #PSLSV_PRVMOD,- ; Get process’ mode from the 
7 06 #PSL$S_PRVMOD,RO,RO 3 Get process’ mode from PSL 
90 0 t3 6 MOVB RO,UCBSB_CI1_ASTMOD(RS) ; and store in the UCB. 
8 ga $3 e«NOSHOW EXPANSIONS 
7A 71 ASSUME AST_PARAMETER EQ AST_ROUTINE+4 
7D 7A i mova AST_ROUTINE (AP) ,= 3; Save the address of the AST 
7D 3% UCBSL_CI_AST(R5S ; routine and parameter in the 
5 is ; ucB. 
&0 6 ~SHOW EXPANSIONS 
B0 0 78 MOVW R1,UCB$W_CI_ACBCNT(R5) ; Save the number of ACBs 
5 79 3 requested. 
30 5 0 BSBW CI_ALLOC_ASTS ; Allocate and initialize all 
: 1 ; AST control blocks. 
E8 ; § BLBS RO, QUEUE _PACKET 3; Branch forward on error. 
a 5 
5 ; If AST allocation and initialization failed, let it go unless the 
$ ; failure prevented even a single packet from being allocated. In the 
é 3; latter case, exit with error status from the connect. 
01 0 CMPL AST_COUNT(AP) ,R1 3; Any AST blocks allocated? 
13 91 BEQL ERROR_DEALSPTS : No. Exit with error. 
38 
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: Transfer control to an executive routine that queves the IRP or 
e 


starts the driver 


in its start 1/0 routine. When the driver RSBs, 


3; the Q10 completes by returning a success status to the process. 


QUEUE _PACKET: 
MOVL 
JMP 


; code is stored in RO. 


SPTs must be deallocated. 


3 Queue packet to driver. 
; Restore PCB address. 


Send packet to driver. 


4 : Error return. The instructions below assumes that an error status 


5 : This outermost error condition happens after SPTs are allocated. The 
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v04-00 CI_CONNECT, Connect the process to an in 5=SEP=-1984 00:11:16 CORIVER.SRCJCONINTERR.MAR; 1 (5) 
9¢ = 909 gs 
9C¢ 319 
9C 911 ERROR_DEALSPTS: 
52 0084 (5 7 9C 318 MOVAQ UCB$Q_CI_SPTDSC(R5),R2 ; Get SPT descriptor. 
6 Dd Al 91 TSTL CINSL_SPTCOUNT (R2) 3 Any SPTs allocated? 
1 1 A 914 BEQL ERROR i If no, skip deallocating them. 
Ae 915 DSBINT 4 | helena 3; Raise to driver fork IPL. 
7E 12 0B AS MFPR S*#PRS$_IPL,-(SP) 
A8 olFF 
A MFPR = S*#PRS_IPL, 
A -ENDC 
A -1F B UCBSB_FIPL(RS) 
8 “ we #31,S"#PRS_IPL 
12 OB AS DA O2A8 MTPR = UCBSB_FIPL(R5),S*#PR$_IPL 
8 Ae ~ENDC 
00000542'°GF 16 bSa¢ 916 JSB G*EXESDEAL_SPTS ; Deallocate SPTs. 
b5e5 917 ENBINT i ; Drop IPL back down. 
12 BE DA 0982 ast: (SP)+,S*#PRS$_IPL 
0285 MTPR =—-_ , S*#PRS_IPL 
0285 -ENDC 
§g83 
0285 918 
0285 919 ; 
0285 380 ; This is a simple error. Just restore registers and return to caller 
0285 921 ; with status. 
0285 9 ¢ ; 
pg82 9 
02B5 924 ERROR: 
4 0080 (5 DO 0285 925 MOVL UCBSL_CI_PCB(R5) ,R4 ; Restore PCB address. 
00000000'GF 17 O2BA 926 JMP G*EXESABORTIO ; Exit to Q10 common code. 
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~SBTTL CI_LALLOC_ASTS, Obtain and setup ASTs for process. 


CONINTERR = Conn to in 
v04-000 AS 


++ 

CI_LALLOC_ASTS = Set up some AST control blocks 

Functional description: 
ipis routine gains control at IPL$_ASTDEL or at driver fork 
This subroutine allocates and writes initial values into AST 


control blocks. Both the FDT routine and the driver fork process 
call this subroutine. 


OO OCOOOOOOOOOOOOOOOOOOOOOO 
PVPS 9 BS BS BS ES ES EB SE AINA 
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C 
C 
: 
C 
C 3 
C 3 
£6 : 
£6 ; 
8 3 : 
0 (0 : 
0 £6 : 
$5¢0 ; 
8s ¢8 ; Inputs: 
0e¢0 : R1 = number of AST control blocks to set up 
02C 5 RG - address of the process’ PCB 
8 ce : RS - address of the 
8 C8 > Implicit inputs: 
02C0 ; UCB$L_CI_ABLINK = backward Link into the UCB AST queue 
02C0 3 UCB$B_F IPL - fork IPL of the driver 
O55 4 $ PCBSW_ASTCNT - number of ASTs left in process’ quota 
02c0 96954; #ACBSK_LENGTH = Length of an ACB 
osce 4 : #DYNSC_ACB - block type of an ACB 
osc? 4 : Outputs: 
o¢0 95 : RO - status code: 
bste 961 : SS$_NORMAL - success 
BS¢o 296 3 SS$_INSFMEM - insufficient nonpaged pool 
9gco 964 : R1 - number of blocks not allocated 
a3¢0 +t ; R2 - Contents destroyed 
Bgce $67 : The subroutine preserves the contents of all other registers. 
0 cD 969 : Implicit outputs: 
§5¢ 390 : ¥ - 
8 3 971 ; UCBSW_CI_ACBNOW records the number of ACBs currently allocated 
C 443 : to the process. 
CO 09735; 
C 974 ;-- 
C 975 
C 976 CI_ALLOC_ASTS: 
0208 ef ge 8 co.) 0O(o97 PUSHR #*M<R3,R9> ; Save volital registers 
59 1 C c 4 MOVZWL R1,R9 ; Convert to long number blocks to get 
C7 3 =—980 ; 
cf 3 1; If quota @ermits, try to allocate another block. Exit on failure. 
ces} : ; 
C7 984 LOOP: 
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youn CI_ALLOC_ASTS, Obtain and setup ASTs for 5-SEP-1 19be 88; 7 8 YORIVER. SRCICONINTERR.MAR; 1 . (6) 
— eho Seer 4 5 MOVZWL #SS$ UOTA,RO ; Assume quota exhaustion error. 
38 AG «BS OOOCA 3 TSTW PcBsO. ENS TENT ERG) ; Any AST quota left? 
ee 1 es 9 BEQL 10$ ; No. Return with error. 
51 C p0 wwe : MOVL #ACBSK_LENGTH,R ; Set up block size. 
00000000" GF 16 be 9 JSB CAENESALONONPAGED ; Allocate that block. 
1F E9 D 990 BLBC ; Branch forward if error. 
8 
dB 338 3; A block is allocated. Decrement quota; increment count allocated in 
Me oae 3; the UCB, Link the block into the ACB queue, and initialize the block. 
DB (996 
38 AG) SOB? DB 38 DECW PCBSW_ASTCNT(R4) ; Decrement AST quo 
08 A2 «51 «BO Of 998 MOVW R1,ACB$wW_SIZE(R2) ; Set size of block “si tocated 
0 90 O2E 999 MOVB #OYNSC ACB - ; Load ACB type field 
OA A 02E4 1000 ACBSB_TYPE(R2) 
0B A 90 O2E6 1001 MOVB UCBSB_FIPL(R5),=- ; Load fork IPL 
OB A 02E9 1008 ACBSB_RMOD(R2) 
6 OE O2EB 100 INSQUE ACBSL_ASTQFL(R2),- 3; Insert new ACB in the queue 
OOAC D O2ED 1004 UCBSC_CI_ABLINK(R5) : 
00A6 C5) BG aero 1903 INCW UCBSu. tl TECBNOW(RS) 3 Increment number allocated 
O2F4 1007 ; 
O2F4 1008 ; See if more blocks to initialize. If not, just return to caller. 
O2F4 1009 ; 
O2F4 1010 
D0 59 «= FS) «(O2F4) «1011 SOBGTR R9,LOOP 3; Loop back if not done yet. 
- Ree 4: 10ig MOVZWL #S5$_NORMAL ,RO ; Set up success status code. 
O2FA 1014 10$: 
DO O2FA 1015 MOVL R9,R1 ; Restore number of blocks left 
0208 8F BA ogre 1016 POPR #*M<R3,R9> ; Restore saved registers 
05 0301 1017 RSB ; Return. 
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-SBTTL CI_START, Start 1/0 routine 


cro V04-00 
DRIVER. SRCICONINTERR.MAR; 1 


++ 
CI_START = Start the device. 
; Functional description: 
When this routine gains control, IPL is at driver fork level. 
This routine obtains the address of an argument List from the 
UCB, and then JSBs to a user-specified start device routine. 
If the user requested a CALL interface, the JSB transfers 
control to the label CI_START_CALL (in this routine), which 
actually executes the CALLG to the user-specified routine. 
When the user routine is called, the following inputs apply: 
- address of the 
- address of the UCB 


the counted argument List is as follows: 


Re = points to counted argument List 
Re IRP 


the argument count (4) 

the systen-napped user buffer address 

the IRP address 

the aygtenmeseed address of the device's CSR 
the UCB address 
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; Inputs: 


R3 - address of the IRP (1/0 request packet) 
R5 - address of the UCB (unit control block) 


Implicit inputs: 
The prepared argument List for a CALLG is at UCBSL_CI_STARGC. 


The address of the user-specified start device routine needing 
a CALL interface is at UCBSL_CI_STACAL. 
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; Outputs: 
RO - 1st longword of 1/0 status: contains status code and 
6 number of bytes transferred 
? R1 - 2nd longword of 1/0 status: device-dependent 
? The routine must preserve all registers except RO-R2 and R4. 
5 CI_START: ; Start the device. 
52 0004 (5 %E 71 MOVAB UCBSL_CI_STARGC(RS),R2 ; Get address of argument block. 
00C0 05 —s «*16 JSB auCBSC_CT_START(RS) ; JSB indirect through UCB to 
7 3 a start device routine. 
05 ? RSB 3; Then return. 
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| ¥Oa~000 CI_START, Start 1/0 routine 5 SEp-1986 6:11:16 LORIVER.SRESCONINTERR.MAR:1 29° 2%) 
| C1076 ; 

| : : a ; Use the CALL interface. 

é Oe CI_START CAL: 

6¢ FA C 1081 CALLG = (R2) ; Call the user's start device 

| 00C4 D OF 1088 auce$e LCI_STACAL(RS) =; routine. 

| - routine. 

05 0311 1084 BSB ; Return. 
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-SBTTL CI_LINTERRUPT, Interrupt service routine 


34+ 

:; CILINTERRUPT, Analyzes interrupts, processes solicited interrupts 

; Functional description: 

When this routine gains control, IPL is at device fork level. 


This routine obtains the address of an argument List from the 
UCB, and then JSBs to a user-specified interrupt service 
routine. If the user requested a CALL interface, the JS 
transfers control to the label CI_ISR_CALL (in this routine) 
which actually executes the CALLG to Fhe user-specified routine. 


When the user's interrupt service routine gains control, the 
following inputs apply: 


R2 - address of counted argument List 
R4 - address of the IDB 
RS - address of the UCB 


the counted argument List is as follows: 


count of arguments (5) 

the system-mapped address of the user buffer 
the address of the AST parameter 

the system-mapped address of the device's CSR 
the address of the IDB 

the address of the UCB 


When the user's interrupt service routine returns, this ISR 
checks the status code in RO. A success status results in the 
creation of a fork process to set an event flag or queue an AST 
to the process. A low-bit-clear status causes immediate 
dismissal of the interrupt. 
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The fork block queued is either an ACB from the queue in the 
UCB, or the UCB itself. In the latter case, a bit is set to 
force a disconnect from the interrupt since no ACBs are left to 
permit further forking or further AST queuing. 


The fork process is described further below. 
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saved PSL (program status longword) 
saved PC 
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nterrupt service routine “SEP-19 DRIVER. SRCICONINTERR.MAR; 1 
The IDB contains the CSR address and the UCB address. 

Implicit inputs: 
The prepared argument List for a CALLG is at UCBSL_CI_ISARGC. 


The address of the user-specified interrupt service routine 
needing a CALL interface is at UCBSL_ISRCAL. 


Outputs: 


cee et 


The routine must preserve all registers except RO-R5. 


CI_LINTERRUPT: Service device interrupt 
MOVL 


JSB aucBSC_CT_ISR(RS 


JSB to user-routine. 
BLBS RO,CHECK_AST 


Branch to fork on success. 


54 9E 00 a(SP)+,R4 : Get address of IDB and remove 
3; pointer from stack. 
55 04 A4& 00 MOVL IDBSL_OWNER(R4) ,R5 ; Get address of device owner's 
52. 00 MOVAB UCBSL_CI ISARGC (RS) .R2 > Get argument List address. 


QOOE8 C5 SE 
00C8 D5) = 16 
09 50 —E8 
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: ; Restore registers and dismiss the interrupt. 
$ DISMISS_INT: 
3F 0S sOBA POPR #°M<RO,F?.R2,R3,R4,R5> ; Restore 6 registers. 
02 REI ; Return from interrupt. 
: Use the CALL interface. The return is to the JSB 5 Lines earlier. 
$ CI_ISR_CALL: 
62 ~=FA CALLG (R2),- ; Call the user's ISR. 
oocc D5 @UCBS$L_C1_ISRCAL(RS) 
05 4 ; Return to JSB caller above. 
E 3 
4 3: See whether an AST delivery is required. 
E e 
E 8 CHECK_AST: 
09 ~=«B3 BITW #UCBSM_CI_AST!UCBSM_CI_EFN,- ; AST or efn requested? 
44 AS 0 UCBSL_BEVBEPEND (RS) 
F1 13 ¢ 4 BEQL DISMISS_INT ; Branch if not. 
4 38 10$: 
See 4 94 MOVL R5,R3 ; Save UCB address. 
55 00A8 03 OF 7 1195 REMQUE 3 €BSL_CI_AFLINK(R3),RS ; Get the address of an ACB. 
1¢ C 39 BVC $ : If ACB found, branch forward. 
55 0g ‘ 9 MOVL 5,5 ; Restore UCB address to R5. 
1 é 4 98 BBSS sutasv C1_UCBFRK,- : Set the “forking on UCB’ bit 
46 A 43 119 UCBSL_DEVBEPEND(RS).- : in UCB, and, if already set, 


CONINTERR = Con 
your CI_IN 


n 

T 

DF : 

DC AF OF 


1 16 
-SEP- 740: ae 7 
J interrupt driver 15-SEP 1384 83:40:06 AX/VMS Macro V04-00 Page é 


nterrupt service routine -SEP-1984 DRIVER. SRCICONINTERR.MAR; 1 8) 
DISMISS_INT ; just go dismiss the interrupt. 


n 

| 

& 

> Create the fork process. 
5 

$ 

8 


PUSHAB DISMISS_INT ; Put a return address on stack. 
FORK 3; Create a fork process. 


QO000000'GF 16 JSB G*EXESF ORK 


- 
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J 
1 
= Queues ASTS and sets e 3: EP-1984 DRIVER. SRCICONINTERR.MAR; 1 
~SBTTL CI_FORK_PROCESS = Queues ASTs and sets event flags 


+4 
CI_FORK_PROCESS = Fork process created after an interrupt 


errs i 
aa _ 


; Functional description: 


The fork process, according to flag settings in the UCB, queues 
an AST to the process, sets an event flag for the process, 
replenishes the ACB supply to anticipate future interrupts 

and, in the event of errors, disconnects the device from the 
process. 


Inputs: 


R3 - address of the UCB 
: R5 - address of the AST/fork control block 
: Outputs: 


The routine may destroy RO-R5, but must preserve all other 
registers. 


In the event of an error, this routine sets up the following 
registers and branches into the cancel 1/0 code: 


R3 - address of the IRP 
R4 - address of the PCB 
RS - address of the UCB 


CI_FORK_PROCESS: 
MOVL UCBSL_CI_PCB(R3),R4 ; Get address of owner PCB. 
CMPB #0Yn$C_UTB,- 3 Is this a UCB fork block? 
ACBS$B_TYPE(RS) 
BNEQ 10$ 


BRW 70$ 


Branch if not 
Else go disconnect device 
from process 


BBC #UCBSV_C : If no AST needs queuing, 
UCB$L VSEVBEPEND(R3) , 20$ ; just branch forward. 
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4 
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5 
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5 
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10$: 
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Set up the AST control block and queue the AST to the process. 


oOo Pe ey ge Se a a a A a 


DUP IPIPININVINI MOOS POOL WT TTT TTT no 


MOVL penis. 

MOVB UCBSB_ 
ae 

BISB #Aac 


e ; Set PAST delivery mode class. 
; 

§ MOVL PCBSL~ Pink 

4 

5 

6 


; Load re delivery mode into 
; AST blo 


: Set the hte that causes AST 
: get ivory code to return quota. 
3; Store PID in the AST block. 


os 
PPrrorono 


-NOSHOW EXPANSIONS 
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ASSUME UCBSL_CI_ASTPRM EQ ycest CI_AST+4 

ASSUME ACBSL_ASTPRM EQ ACB L_AST+4 

MOVQ ycpel Ci AST(R3),<= 3; Store AST routine address and 

ACBSL_AST(RS) 3 parameter. 

~SHOW EXPANSIONS 

PUSHR #*M<R3,R4> 
$B 


a 


; Save UCB and PCB addresses. 
G*SCHSQAST 3 Queue the AST to the process. 


1 
00000000'G J 
5 i POPR ag see Restore UCB and PCB addresses. 


cooo™oco 
o— 
ro 
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SN 
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o in 
CESS 
1267 
188 
! 
1594 
1 ie 
7B 127 
1274 
7D 1275 
1 A 
0 ; ! 78 BLBS RO,15 ; Branch forward on success. 
1279 : 
es ! 9 3; AST QUEUING FAILED. DISCONNECT DEVICE FROM PROCESS. 
88 1282 ° 
53 00 88 1 : MOVL R3,R5 3; Load UCB address into R5. 
SA 11 0 = ! : BRB 10_COMPLETE 3; Go disconnect device. 
b38p 1 $ 15$: ; An AST was actually queued. 
00A6 C3 —«B7 8 30 } of DECW UCBSW_CI_ACBNOW(R3) : Decrement current ACB count. 
0391 1289 ; 
0391 1290 ; If an event flag was specified, post the event flag. 
0391 1291 ; 
0391 1 35 
0391 12935 208: * 
55 DD 8 91 1294 PUSHL R5 3; Save fork block address. 
53 bo 93 1295 MOVL R3,R5 3; Move UCB address into RS. 
00 £1 0 36 1296 BBC #uCBSV_CI_EFN,- : Any event flag specified? 
AS 0398 1297 UCBSL_BEVBEPEND(RS),.30$ ; Branch forward if none. 
2 01 dO 0398 1298 MOVL #PRI$_I0OCOM,R2 : Set priority increment class. 
60 AS DO O39E 1299 OVL  PCBSLPID(R4),R1 : Get PID address. 
OO9A CS) 35C Ae 1300 MOVZWL UCBSW_CI_EFNUM(R5),R3 ; Get event flag number. 
bo000039 GF 16 A? 1301 JSB G*SCHSPOSTEF 3; Go set the event flag. 
0 E8 AD 1 86 BLBS RO, 30$ ; Branch if efn post succeeded 
11 ig 03 BRB 90$ : Else disconnect process. 
1305 ; 
0 1 $ 3; If the user only asked for a single AST delivery or a single 
2 1 3; interrupt, go disconnect the device from the process, and thus 
} 88 3 complete the connect to interrupt 1/0 request. 
1 19 
1311 30$: 
0 E1 1 1g BBC #UCBSV_CI_REPEAT,=- ; Branch if user specified 
2A 44 A 131 UCBSL_DEVBEPEND(R5S),80$ : only one AST/event flag 
7 1314 3; be delivered. 
50 8ED0 : ' 1g POPL RO 3; Restore fork block addr. 
A 1317; 
A 1 13 3; If the AST was queued to the process, then go ahead and allocate 
A 1319 ; a replacement block. Otherwise, relink the ACB used as a fork block 
. ! 3 3; back into the UCB ACB queue. 
A 1 : 
03 £0 A 1 : BBS #UCBSV_CI_AST,=- ; Branch forward if an AST 


cons 


51 


50 
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t 
C1_FORK_P 
06 44 AS C 
60 O& O38F 
OOAC D C1 
05 03C4 
¢ 
¢ 
v 
C 
C 
¢ 
C 
c 
00A6 CS AB. (O3C 
O0A4 C5 ¢ 
FEED 30 O5C 
0650 €é D 
D 
D 
D 
D 
30 
D 
030 
00A6 CS) «BS O(O3D 
61 13 0307 
0509 
0509 
05 0309 
OSDA 
DA 
O3DA 
O3DA 
DA 
DA 
DA 
206 BF 3C O3DA 
06 11 O3DF 
E1 
E1 
E1 
E1 
E1 
E1 
50 01 3¢ O3E1 
E4 
E4 
£4 
£4 
E4 
£4 
54 BEDO O3E4 
E7 
E7 
F) 
E7 
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“SEP=1 3:40: AX/VMS M v04-00 
= Queues ASTS and sets e a= $EF- 1986 69: 211: 48 LORIVER. SR SRE CON INTERR.MAR; 1 
UCBSL_DEVDEPEND(R5) ,50$ ; was queue ed. 
INSQUE sts ASTQFL(RO) ,= ; Otherwise, relink the ACB 
@UCBSC_CI_ABLINK(RS)  : back into the UCB queue. 


3; And exit from fork process. 


3 S Replenish the number of available ACBs, and initialize them. If no 

3; pool is available, let the replenishment happen on the next interrupt. 
; f no ACBs are left, the next interrupt will force an 1/0 completion 

3 because only one fork on the UCB is possible. 


50$ 


SUBW3 UCBS$W_CI_ACBNOW(R5),- i See how many ACBs need to be 
UCBSW_CI_ACBCNT(R5),R1 ; allocated. 

BSBW Cy ALLOC_ASTS : initialize the blocks. 

BLBS RO,60$ ; Branch forward on success. 


Some failure occurred in attempting to replenish the ACBs. If no ACBs 
are currently allocated, disconnect the device from the process 
because no other interrupts can be handled. 


Sete Ge Sete 


$ _ ACBs allocated? 


TSTw Ucesu_Cl_ACBNOW(RS) 
0$ 3; No. Disconnect the process. 


BEQL 


60$: 
RSB ; Return. 


iT he UCB was used as a fork block. Load the disconnect error code into 
: RO before disconnecting the process. 


70$: 
MOVZWL #SS$ piste. RO 3 — status code. 
BRB 10_COmP 3; Complete disconnect. 


: Only a single AST or event ilo was requested. Set status 
3 to success, clean stack, and disconnect. 


80$: MOVZWL #SS$_NORMAL ,RO ; Set status to success. 


$ Event flag posting failed. Status is in RO. Clear stack, 
: and disconnect. 


90$: POPL R4 : Clear stack of fork blk 


; address 


: omple ete the 1/0, thereby disconnecting the process from the device. 
3 his is necessary if the UCB was used as a fork block to prevent 


me 8, 


pups = Connec terrupt drive vi 1973 ath 83: 49: 96 ee fl Macro V04-00 Page 4, 


t to in 
- CI_FORK_PROCESS = Queues ASTs and sets e DRIVER. SRCIJCONINTERR.MAR; 1 

ft ! 3 the single UCB from being used many times simultaneously as a fork 
e7 1 " 
4! 1384 10_ sort * 

4 0089 C Dd ? 1385 UCBSL_CI 4. tat tS ; Set up PCB address. 

3 A i) E 1 § ROVE UCBSL~ IRP(RS) .R3 ; Set up IRP address. 
0B i , BRB CI_FORCE_CANCEL : Fall through to join the 


cancel 1/0 code. 
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= Connect to interrupt driver 15-SEP-1984 23:40:06 VAX/VMS Macro V04-00 Page 32 | 
CI_CANCEL, Cancel 7b routine tae Yi 0:11:16 CORIVER.SRCICONINTERR.MAR; 1 . db), 
. 30 -SBTTL CI_CANCEL, Cancel 1/0 routine 
| 
fF 1 35 p+4 | 
: ; i ; CILCANCEL, Cancels an I/0 operation in progress 
: } 32 :; Functional description: 
: ! 39 ; When this routine gains control, IPL is at driver fork level. on 
ia 3 ; This routine calls IOCSCANCELIO to set the cancel bit in the PS 
: 17Re ; UCB status word if: s 
6 F 1408 3 the device is busy | PT 
O3F2 1405 ; the IRP's process {D matches the cancel process ID, PT 
0 : abe 3 the IRP channel matches the cancel channel. | 43 
F 1298 3 If IOCSCANCELIO sets the cancel bit, then this driver routine | Qu 
O3F2 1407 ; calls a user-specified cancel 1/0 routine. The call interface RBI 
O3F2 1408 ; is JSB or CALLS depending on a bit setting in the UCB. On RB 
O3F2 1409 ; entry to the user routine, the register settings are unchanged. RB 
tH 1319 $ For the CALL interface, the argument list is as follows: | 36 
O3F i716 3 OC(AP) = argument count sc 
O3F2 1413; 4(AP) = negated value of the channel index number SE 
O3F2 1414 ; (AP) = address of the IRP (1/0 request packet) SE 
O3F2 1415 ; 12(AP) = address of the PCB (process control block) for $l 
O3F2 1416 ; the process canceling 1/0 ss 
O3F2 1417; 16(AP) = address of the UCB (unit control block) SS 
O3F2 1418 ; SS 
O3F2 1419 ; Inputs: SS 
O3F2 1420 : | 5S 
O3F2 1421; Re = negated value of the channel index number SS! 
O3F2 14 § ; R - address of the current IRP (1/0 request packet) $$ 
tH 1425 ; R4 - address of the PCB (process control block) for the uC! 
Hi 1424 ; process canceling I/ UC! 
O3F2 1425 ; R5 - address of the UCB (unit control block) uc! 
O3F 1426 Py 2 | UC! 
O3F2 1427 ; Implicit inputs: UC! 
tH 1428 ; UC! 
O3F 1429 ; UCBSV_CI_USECAL is set in UCBSL_DEVDEPEND if the CALLS uc 
te 1430 ; interface was requested. uC! 
3F 1431 ; UC! 
O3F2 14 § ; Outputs: uC! 
8 Fe 1433; uc 
: 1 : 3 The routine must preserve all registers except RO-R3. co 
f i? $ 3 The routine may set the UCBSM_CANCEL bit in UCB$W_STS. | us 
F 1438 ;-- uC 
F2 1439 uC! 
F2 1440 CI_CANCEL: : Cancel an 1/0 operation uC 
00000000'GF 16 F2 1441 JSB G*1OCSCANCELIO : Set cancel bit if appropriate. uc 
03 =«€1 F 1066 BBC gh ng cant et = : If the cancel bit is not set, uC! 
64 a5 FA 144 UCBSW_STS(R5),- ; just return. uc 
24 FC 1444 CANCEC_EXIT | uc 
30 1445 uc 
FD 1446 ; uc 
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o interrupt driver ot} tb 4 63749: 06 uve Macro V04-00 Page 33 
Cancel 1/0 routine -SEP-1984 00:11:16 CORIVER.SRCICONINTERR.MAR; 1 (10) 
1st ; Device-dependent cancel operations go next. 

1009 

1450 CI_FORCE_CANCEL: 

121 Bac #UCBSV_BSY,- ; Branch forward if device does 
14 g UCB$W_STS(R5) , 208 : not have IRP associated. 

145 BBC #UCBS0_CI_USECAL,- : Branch to JSB code if user 
1454 UCBs BEVBEPEND(RS),10$ : didn’t request CALL interface. 
1455 BBC #uCcB$9_CI_CANCEL, - ; Branch to JSB code if user 
1929 UCB$L_BDEVBEPEND(RS), 10$; cancel routine doesn't exist. 
1458 ; 

1289 ; Load the input registers onto the argument stack and CALLS the 

1289 ; user-specified cancel 1/0 routine. 

1006 

146 PUSHL R5 : Push address of UCB. 

1464 PUSHL R4 : Push address of PCB. 

1465 PUSHL R3 3; Push address of IRP. 

1466 PUSHL R2 ; Push negated channel index. 
1467 CALLS #4,@UCBSL_CI_CANCEL(RS5) ; Call user's cancel 1/0 

1468 : routine. 

1469 BRB 208 : Go disconnect device. 

i? 

1328 ; Just JSB to the user-specified cancel I/0 routine. 

1474 

1475 10$: ; JSB path. 

1476 JSB @UCBSL_CI_CANCEL (RS) ; JSB to user's cancel 1/0 
1477 3; routine, 

1299 

1480 ; Now disconnect the process from the interrupt by restoring the dummy 
133! ; device handling routine addresses and completing the 1/0. 

1483 

tt 208: 2 

1485 BSBB CI_DISCONNECT ; Disconnect device from 

1486 3 process. 

1487 

1488 ; . . 

He 3; A simple return if the cancel does not apply. 

1491 

149¢ CANCEL_EXIT: 

149 RSB 3; Return. 
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0 
sconnect the process fr 5-SEP-19 0:11: DRIVER. SRC JCONINTERR.MAR; 1 
-SBTTL CI_DISCONNECT, Disconnect the process from the device 


4 
on 


“C1_DISCONNECT, Restores the device to a null-driver state 
Functional description: 
When this routine gains control, IPL is at driver fork level. 
This subroutine performs a disconnect in the following steps: 


; Restores the dummy routine address to the four 

3 possible process~sugpt fed kernel mode routines 
3 Deallocates the realtime SPTs reserved to the process. 
; Deallocates unused AST control blocks 

: Completes the Q10 request, if one is outstanding 

3; Inputs: 


1/0 completion status from user's cancel routine 
more completion status 

address of the process’ PCB 

address of the device's UCB 


& ) 
= 
eee 


; Outputs: 
The routine preserves all registers. 


CI_DISCONNECT: 
PUSHR #*M<RO,R1,R2,R3> Save registers. 
CLRW  UCBSL_DEVDEPEND(RS) Clear the flags word. 
MOVAL Restore dummy device 


CI_DUAMY_RSB,- : 
UCBSL CITINIDEV(RS) : initialization routine addr. 
MOVAL CI_DURMY ; Restore dummy start device 


R - 
UCBSL_CI“START(RS) routine address. 
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For each AST control block in the UCB queue, deallocate the space. 
Then restore process quota for these blocks. 
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MOVAL CI_DUPRMY_RSB,- Restore euany interrupt 
UCB$SL_CI-ISR(RS) ; service routine address. 
MOVAL CI_DUAMMY_RSB,- Restore dummy cancel 1/0 
ret UCBSL_CI-CANCEL (RS) ; routine address. 
448 : 
448 3; Deallocate the SPTs that are double mapping the user buffer in 
448 3 system address space. 
uae 3 
44 MOVAQ UCBSQ_CI_SPTDSC(R5),R2 ; Get SPT descriptor. 
45 TSTL £ JNSL_SPTCOUNT (Re) 3 Any allocated? 
45 BEQL 108 ; No. Branch forward. 
454 $B G*EXESDEAL_SPTS : Yes. Deallocate them. 
04 CLRQ UCB$Q_CI_SPTDSC(R5) : Clear out SPT descriptor. 
a3 
45E 
$3 
45E 


re 
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° o interrupt drive 15-SEP-1984 23:40: AX/VMS Macro V04-00 Page 35 
von coOb CI DISCONNECT. “bisconnect. tk the process fr a= SE 1388 88:79:98 DRIVER.SR ReIC CONINTERR. MAR: 1 (11) 
45— 1 
3 1 j 10$: 
50 O0A8 DS OF 2 ! : REMQUE @UCBSL_CI_AFLINK(R5) ,RO ; et pgéress of an AST 
OF 1D 04663 1 BvVS 208 : Branch if no more exist. 
00000000 * GF 16 0465 1 § JSB G“EXESDEANONPAGED : Deallocate the block. 
tose ts 8S tee i $8 ae Natit CF kteNowcRs) : Decrement i ee 
A eo ‘ * 
° ER a 235 1560 BRB 10$ : Go look for another. 
tbe 1863 
474 1 : : pe the UCB to see if the device has an IRP associated with it. 
474 1384 3: If not, Just return. Otherwise, complete the 1/0 request by a 
474 1565 ; transfer of control to VMS. The I/0 completion disconnects. the 
474 1396 3 process from the interrupt. 
0474 1567 ; 
tbe 1869 208 
OF BA 0474 133 ; POPR #*mM<RO, . eh. R3> ; Restore 1/0 status. 
08 £€0 0476 1571 BBS #UCB$V : Branch forward if device is 
01 64 AS 0478 1326 UCBSW_ cela), 30$ 3 connected to a process. 
05 0478 157 RSB : Otherwise, just return. 
re: 1838 30$: 
047C 1576  — REQCOM : Complete the 1/0. 
00C00000 ' GF 17 04 43 JMP G*1OCS$REQCOM 


‘a 
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F 4 
cain RR = Connect to interrupt driver 1 a eth 9 Vv 
v04- 4 ONINTERR.MAR; 1 


C1_DUMMY_RSB “SEP=19 
.SBTTL C1_DUMMY_RSB 


60:06 AX/VMS Macro 
11:16 CORIVER.SRCIC 


:"C1_DUNRY_RSB = nop routine 

; Functional description: 

: This routine returns to caller with a RSB instruction. 
; Inputs: 

; none 


; Outputs: 
: RO contains the SS$_NORMAL status code. 
C 


1_DUMMY_RSB: 
MOVZWL 9 #SS$_NORMAL ,RO ; Load success status. 
RSB ; Return. 
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2 hd = Connect to interr 
v04- EXESALLOC_SPTS, Allocate a cont iquous se 5=-SEP-19 DRIVER. SRCICONINTERR. MAR; 1 (13) 
: é 16 -SBTTL EXESALLOC_SPTS, Allocate a contiguous set of SPTs 
4 18 3o4 
ri ? 19 ¢ ; EXESALLOC_SPTS = Allocate SPTs to double map the user's buffer 
r ? 19 § : Functional description: 
: ? 16 3 : When this routine gains control, IPL is at driver fork level. 
486 1610 : Using a bit mop whose address is stored in the control block 
486 1611 ; addressed by EXESGL_RTBITMAP, try to allocate ‘'n’’ contiguous 
4 ? 1916 3 SPTs. 
4 1615 ; 
8 6 1614 ; Inputs: 
486 1615 ; 
Be ? 1918 : R2 - address of a quadword descriptor: 
04 6 1618: CINSL_SPTCOUNT(R2) = count of SPTs needed 
486 1619 ; CINSL— _STARTVPN(R2) - zero 
0486 1620 ; 
Be ? 1° 1 : Implicit inputs: 
on ? ; EXESGL_RTBITMAP = address of SPT bit map control block 
Be 6 1625 : anninmnee smowemerienes Sennen 
0486 16 § 3 ' starting VPN : 
0486 1628 ; ' number of SPTs left H 
: } : e ; size : 
0486 16 § : } ' 
0486 16335 ; : bitmap ; 
6 6 1634 ; : : 
0486 1636: 
0486 1637 ; Outputs: 
Boge 16 3 3 
486 1639; RO - status code: 
486 1640 ; 
486 1641 ; S$S$_NORMAL - success 
" 4 1ee6 ; SS$_INSFSPTS - not enough contiguous SFTs 
4 6 1644 : R2 - address of the quadword descriptor: 
486 1646 : 0(R3) = count of SPTs allocated 
° 19 : 4(R2) - starting VPN 
: 1848 : Registers R1, R3, R4, and RS are preserved. 
486 1651 :-- 
486 1636 
486 1655 EXESALLOC_SPTS:: 
ir 98 4 $ 1654 POSHR #*M<R1,R3,R4,R5> ; Save registers 
50 4 BF C 04 1655 MOVZWL &#SS$_INSFSPTS,RO 3; Assume allocation failure. 
o9 4 p 16 ‘ MOVL  CINSC_SPTCOUNT(R2),R3 =: Get number of SPTs needed. 
00° Gf DO 0490 165 MOVL  G*EXESGL_RTBITMAP,R1 =; Get address of bit map 


4 1 
CONINTERR = Connect to interrupt driver 15-SEP-1984 23:40: AX/VMS Macro V04-00 Page 
voe-000 EXESALLOC.SPTS, Allocate a contiguous se et oet sy 80:19:46 DRIVER. SRCICONINTERR.MAR; 1 3, 
497 165 3 control block. 
9 13° 0497 1888 BEQL 60$ : If none, no SPTs available. 
04 Al Di 0499 1660 CMPL R3,RBMSL_FREECOUNT(R1) ; Are there enough SPTs left? 
A 14 0490 1661 BGTR 608 : No. Return with failure. 
4 D6 Q49F 1906 CLRL RG ; Clear starting bit position. 
oA 1888 so 
55 54 53 C1 Q46A1 1665 ADDOL3 = R3,R4,R5 ; Calculate highest bit 
4A 1998 3 position needed in scan. 
00000000'GF 55 D1 Q6A5 166 CMPL R5 ,G*EXESGL_RTIMESPT ; Is it_higher than allowed? 
4B 16 «(O4AC 1668 BGTR  60$ : Yes. Return with faiture. 
20 54 EA Q6A 198 FFS R4,#32,- ; Look for a free SPT (a set 
54 OC Al 481 1670 RBMSL_BITMAP(R1) ,R4 : bit). 
Eg 13° 0484 1671 BEQL ; If none, go to next longword. 
55 54 C1 0486 1976 ADDL3 = =R3,R4,R5 ; Again, calculate highest bit 
4BA 167 t position needed in scan. 
A & MOVL -CINSL_STA ; Save starting bit number. 
04 A2 54 DO 048 1674 R4,CINSL_STARTBIT(R2) i bi 
tee 678 208 
20 54 £8 OQ4BE 1699 FFC R4,#32,- 3; Find first allocated SPT (a 
54 OC Al 04C1 1678 RBAS, _BITMAP(RI) ,R4 : clear bit). 
55 54 01 ot 1679 CMPL R4,R ; Past the highest bit needed? 
7 18 04C7 1989 BGEQ 30 3; Yes. Branch with success. 
FO OC Al 4 EO 04C9 1681 BBS R4,RBMSL_BITMAP(R1),20$ ; If no clear bit found yet, 
4CE 16 ¢ 3 continue this scan. 
D1 11 rth 16 BRB 10$ 3; Otherwise, restart scan. 
$8 188 ss 
50 O4A DO 0400 16 § MOVL CINSL_STARTBIT(R2),RO ; Get starting bit number. 
61 50 Ci 0404 16 ADDL3 RO,RBASL_STARTVPN(R1),- : Calculate the VPN of the 
04 A2 0407 1688 CINSL_STARTVPN(R2) i first SPT allocated. 
raat 
: ocate the s by clearing the appropriate bits in the t 
409 1691 ALL he SPTs b l i h i bi i he SPT bi 
BS ese | he 
Rees 1998 3; Registers are as follows: 
409 1698 3 RO - starting bit number 
409 1697; R1 - address of the real time bit map 
409 1698 ; R - address of the quadword descriptor 
Be08 1999 3 R - number of bits to alter 
409 1700 ; 
tbo 1902 40s 
53 0 01 0409 17 4 CMPL #32,R3 : Get number of bits to alter. 
3 18 4DC 1704 BGEQ 50$ ; Branch if 32 or less. 
! 20 50 7 4DE 1705 INSV #0,R0,#32,- 3; Allocate the bits (by 
OC Al 4E2 17 $ RBMSL_BITMAP(R1) ; clearing them). 
29 8 cg 4E4 17 ADDL #@ g RO ; Move to next longword. _ 
5 C rH 1g 3 SUBL #32,R 3 eyocrest out number of bits 
; Go alter more bits. 
—ED 11 O4EA 1710 He ES 40$ Go al bi 
EN} so 
oat $3 2 0 F060 ri} 1718 INSV #0,R0,R3,- ; Allocate the bits (by 
4F2 1714 RBMSL_BITMAP(R1) : clearing them. 
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EXESALLOC_SPTS, Allocate a contiguous se 5-SEP-1984 00:11:16 CDRIVER.SRCICONINTERR.MAR; 1 ( 
GF 1713 
GF 1 16 $ 
4F2 1717 ; Return with success. 
4F 1718 : 
4F2 171 
C2 O4F2 1720 SUBL CINSL_SPTCOUNT(R2) ; Reduce free count by number 
4-4 1721 RBMSL_FREECOUNT(R1 ; allocated. 
xc ars 4 ¢ MOVZWL #SS$_RORMAL ,RO ; Set success status code. 
4-9 1726 608: 
BA 4F9 1725 POPR #*M<R1,R3,R4,R5> ; Restore registers. 
5 O4FB 1726 RSB ; Return, 
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-SBTTL EXESSETUP_SPTS, Validate and set access rights to SPTs 
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+¢ 
EXESSETUP_SPTS = Initialize SPTs to double map user's buffer 
; Functional description: 
When this routine gains control, IPL is at driver fork level. 


This routine sets the valid bits and requested access bits in 
a@ contiguous set of SPTs. 


R1 = process address of the user's buffer 
R2 - address of quadword descriptor of SPTs: 


CINSL_SPTCOUNT(R2) = number of oe to validate 


CINSL_STARTVPN(R2) = starting VP 
Outputs: 


; RO = access mask for pages 
: The routine preserves all registers. 


EXESSETUP_SPTS:: 
POSHR #*M<RO,R1,R2,R3,.R4,R5,R6>; Save some registers. 

CINSL_STARTVPN(R2).R4 ; Get starting VPN. 

MOVL 5 EL SCOUT ERS? ome ; Get number of SPTs to setup. 
R1,R 3 Move process address. 


Calculate the address of the system page table entry that corresponds 
to the starting VPN of the system-mapped buffer. 


DO MOVL Psy 74 = SP TBASE .RS ; Get base of oystee page table. 


MOVAL (R3) 3; Get address of SPT for VPN. 


SIDED DED DP DPD DED PVPs Be BS BS BE AAAI AAAI 


; peceta the process page table entry of the next page in the user's 
; buffer. 


MOVL UCBSL_CI_PCB(RS) ,R4 ; Get process PCB address. 
MOVL PCBSL_PHB(R4) ,RS ; Get process PHD address. 


—_ 
So 
bod 


JSB G*MMGSPTEADRCHK ; Get process PTE for this page. 


Register usage is now the following: 


RO - status from MMGSPTEADRCHK 
R1 - preserved; address of SPT for current VPN 
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; 8 ~ System vit process virtual address 
: 8 = system v rtual address of process page table entry 
: RG - preserved; address of the PCB (process control block) 
; RS = preserved; address of the PHD (process header block) 
3 R6 = preserved; count of SPTs left to setup 
: (SP) = preserved; mask of page validation for the page 

BLBC RO,208 ; Branch to exit on error. 


: Get the physical page frame number from the process page geple entry 
3; for the page. Insert this and the validation mask in the SPT 


EXTZV 
BISL3 


; Extract the page frame number 
: of this page. 
; Set up page table entry. 


: See if more SPTs to wh bs If not, invalidate the translation buffer, 
3; and return to caller with success status. 


ADDL #*x200,R2 : Increment process address by 
3; one pa 
SOBGTR R6,10$ 3; Loop Cour more to do. 
INVALID 1"e 3; Clear translation buffer. 
ATPR #0,S*#PRS$_TBIA 
“IF B 
MTPR =, S*#PR$_TBIS 
LFF 
MOVL ° 
MTPR ,S*#PRS_TBIS 
-ENDC 
~ENDC 
1814 
1815 208: 
1 1 POPR #*M<RO,R1,R2,R3,R4,R5,R6> 
181 RSB ; Restore registers and return. 
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Deallocate rea DRIVER. SRCICONINTERR.MAK; 1 
-SBTTL EXESDEAL_SPTS, Deallocate real time SPTs 


366 

; EXESDEAL_SPTS = Deallocate SPTs used to double map process buffer 

; Functional description: 

When this routine gains control, IPL is at driver fork level. 


| 
| 
Using a bit wi whose address is stored in the control block 
addressed by EXESGL_RTBITMAP, deallocate ‘'n’’ contiguous SPTs. 


Inputs: 
R2 - address of a quadword descriptor: 


CINSL_SPTCOUNT(R2) = number of SPTs allocated 
CINSL_STARTVPN(R2) = starting VPN 


Implicit inputs: 
EXESGL_RTBITMAP = address of SPT bit map control block. 
In the bit map, unset bits are allocated SPTs. 

Outputs: 
The routine preserves all registers except RO. 


EXESDEAL_SPTS:: 
PUSHR #*M<RO,R1,R3> 
MOVL  G*EXESGL_RTBITMAP,R1 


SUBL3 RBMSL_STARTVPN(R1),- 
CINSL“STARTVPN(R2) R 
MOVL  CINSL-SPTCUUNT(R2),R 


Save registers. 
Get address of bit map 
control block. 
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Calculate the starting bit 
number of the allocated bits. 
Get number of bits. 
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108: 
CMPL #32,R3 : Branch if number of bits left 
BGEQ 0$ 3; to alter is 32 or less. 
INSV #-1,R0,#32,- 3; Deallocate the bits by 32. 
OC al Rem$._B1TMAP(RI) 
39 $8 9 ADOL & goR0 3: Move to next longword. 
5 SUBL #32,R ; Subtract out number of bits 
; altered. 
a] 1 BRB 10% ; Try for more. 


FDP DPD SANA DNL LILIES. EE. EF BE NANA AAAI IOI IIIS Ps 
LY a) 


08 688 
51 00000000°GF 00 
61 C3 
50 04 A 
53 6 b0 
53 D1 
oy 
20 50 FFFFFFFR BF OF 
C 
C 
1 


208: 
Oc Al = 653)— 80—sCédaS AREER BF OFO 8 INSV #-1,R0,R3,- ; Deallocate the remaining bits. 
0 ROMSL_BITMAP(RI) 
6 co 7 ADDL CINSL_SPTCOUNT(R2) ,- ; Recalculate number of free 
04 A 7 RBMSL “FR ECQUNT (R15 : SPT 
08 BA 7 7 POPR #*mcrRO,R1,R5> : 
5 7A 74 iw ; Return to caller. 


| 
: $s . | 
; RESTORE REGISTERS | 
} 
| 


oes 


CILENDs Endvof driver” "SSEP=1986 GO:T9:98 LORIVER. SRESCONINTERR. MAR; 1 


-SBTT . 

ie 8 SBTTL CI_LEND, End of driver 
78 

5 


o 


8 ee 
79 ; Label that marks the end of the driver 
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; CILEND: ; Last location in driver 
-END 
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= Connect to interrupt driver 


CONINTERR 
Symbol table 
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CONINTERR = Connect to interrupt driver ym =1386 $348 2:40:06 VAX/VMS en cro V04-00 Page 46 
Psect synopsis 1984 716 (CDRIVER.SR eie CONINTERR.MAR; 1 (16) 


$eaemonmeen ecm een a= $ 


! Psect synopsis ! 


tmomoceneaeeeseounccat 


PSECT name Allocation PSECT No. Attributes 

, GS « 00000000 0.) 00 ¢ ©.) NOPIC USR CON ABS LCL ae NOEXE NORD NOWRT NOVEC BYTE 

SABSS BORDA ( 256.) Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

$$$105_PROLOGUE 44444 ( 114.) 8 ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

$$$115~ DRIVER 0000057B ( 1403.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
borer et ewe ene see were eo ewan $ 
iP Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 08: 0: 8:90 «08 00:00:01.33 

Command processing 146 809-8 00:00:04.31 

Pass 1 587 80; 00:1 9 00:01:11.64 

symbol table sort 8 00:00:02. 00:00:11.75 

Pass 2 32 00:00:04.3 ie a tet 

Symbol table output 24 00: “$s 700.14 00:00:00.41 

Peect synopsis output 3 00:00:00.01 00:00:00.01 

Cross-reference output 0 00:00:00.00 Bp +0208 -90 

Assembler run totals 1119 00:00:24.59 0:01:53.2 


The_working set Limit was 2400 page 

145741 bytes_(285 pages) of vietusl memory were used to buffer the intermediate code. 

There were 130 pages of symbol table space oi eceise to hold 2393 non-local and 49 local symbols. 
1883 source Lines were read in Pass 1, producing, | object records in Pass 2. 

45 pages of virtual memory were used to define 42 macros. 


Macro Library name Macros defined 
SS 2 2SDUAE: 8:CSYS. OBJ IL 18.MLB;1 28 
“$255$DUA28:(SYSLIBJSTARLET.MLB;2 1 
TOTALS (all Libraries) & 


2652 GETS were required to define 40 macros. 
There were no errors, warnings or information messages. 
MACRO/L1IS=L1S$:CONINTERR/OBJ=O0BJ$:CONINTERR MSRC$:CONINTERR/UPDATE=(ENHS: CONINTERR) +EXECMLS$/LIB 
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